(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     19695,        537]
NotebookOptionsPosition[     18551,        495]
NotebookOutlinePosition[     18908,        511]
CellTagsIndexPosition[     18865,        508]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"campo", "=", " ", "1"}], ";"}]], "Input",
 CellChangeTimes->{{3.460140150618114*^9, 3.46014015491667*^9}, {
   3.460208358901157*^9, 3.460208360435178*^9}, 3.460208887483835*^9, 
   3.4602120635157824`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f", "=", 
  RowBox[{
   RowBox[{"-", "EE"}], " ", 
   RowBox[{"(", 
    RowBox[{"r", "-", 
     RowBox[{
      RowBox[{"a", "^", "3"}], "/", 
      RowBox[{"r", "^", "2"}]}]}], ")"}], " ", 
   RowBox[{"Cos", "[", "t", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.4601264290651703`*^9, 3.460126471840177*^9}, {
  3.460126704325185*^9, 3.460126704614604*^9}, {3.4602082704165163`*^9, 
  3.460208312930773*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "EE"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      SuperscriptBox["a", "3"], 
      SuperscriptBox["r", "2"]]}], "+", "r"}], ")"}], " ", 
  RowBox[{"Cos", "[", "t", "]"}]}]], "Output",
 CellChangeTimes->{
  3.4601264739818497`*^9, 3.460126705655455*^9, 3.460126904680709*^9, 
   3.4601269591611433`*^9, 3.4601372125656977`*^9, 3.460143600174758*^9, {
   3.4602082959507227`*^9, 3.46020831357944*^9}, 3.460208889678947*^9, 
   3.46021206503866*^9, 3.460230722978361*^9, 3.4602321203879347`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ff", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"f", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"r", "\[Rule]", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"xx", "^", "2"}], "+", 
         RowBox[{"yy", "^", "2"}], "+", 
         RowBox[{"zz", "^", "2"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Cos", "[", "t", "]"}], "\[Rule]", 
       RowBox[{"zz", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{"xx", "^", "2"}], "+", 
          RowBox[{"yy", "^", "2"}], "+", 
          RowBox[{"zz", "^", "2"}]}], "]"}]}]}]}], "}"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.4601267169008636`*^9, 3.460126737358551*^9}, {
   3.4601268278449163`*^9, 3.460126866266573*^9}, {3.460126922300088*^9, 
   3.460126988007017*^9}, 3.460127110438389*^9, {3.460208301843782*^9, 
   3.460208301947863*^9}}],

Cell[BoxData[
 RowBox[{"EE", " ", "zz", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    FractionBox[
     SuperscriptBox["a", "3"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["xx", "2"], "+", 
        SuperscriptBox["yy", "2"], "+", 
        SuperscriptBox["zz", "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.460126978568739*^9, 3.460126988807788*^9}, 
   3.460127111071759*^9, 3.460137213514805*^9, 3.460143600355337*^9, {
   3.4602083074771338`*^9, 3.460208315054996*^9}, 3.460208372493828*^9, 
   3.460208891071949*^9, 3.46021206619952*^9, 3.460230723573659*^9, 
   3.460232121548726*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ffv", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"D", "[", 
       RowBox[{"ff", ",", "xx"}], "]"}]}], ",", 
     RowBox[{"-", 
      RowBox[{"D", "[", 
       RowBox[{"ff", ",", "yy"}], "]"}]}], ",", 
     RowBox[{"-", 
      RowBox[{"D", "[", 
       RowBox[{"ff", ",", "zz"}], "]"}]}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4601394183911343`*^9, 3.460139448299385*^9}, {
  3.460209386114009*^9, 3.460209392526898*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fff", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"ff", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", "1"}], ",", 
      RowBox[{"EE", "\[Rule]", "campo"}], ",", 
      RowBox[{"yy", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460126869776675*^9, 3.460126891237254*^9}, 
   3.460127004461026*^9, {3.460127039347053*^9, 3.460127041778625*^9}, {
   3.460127119068061*^9, 3.460127122151043*^9}, {3.4601401371042833`*^9, 
   3.4601401446723022`*^9}, {3.46020834867319*^9, 3.4602083551165247`*^9}, {
   3.4602084732107887`*^9, 3.460208476396759*^9}}],

Cell[BoxData[
 RowBox[{"zz", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["xx", "2"], "+", 
        SuperscriptBox["zz", "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.460126893128043*^9, {3.4601269931714993`*^9, 3.4601270053163757`*^9}, 
   3.46012704548484*^9, {3.460127114428644*^9, 3.4601271231545467`*^9}, 
   3.460137214383061*^9, {3.460140140744384*^9, 3.460140158220689*^9}, 
   3.460143600437114*^9, {3.4602083632700768`*^9, 3.460208377012092*^9}, {
   3.460208457640716*^9, 3.460208477815556*^9}, 3.4602088933827963`*^9, {
   3.460209404213263*^9, 3.460209418772258*^9}, 3.460212068635285*^9, 
   3.460230724528803*^9, 3.46023212241171*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fffv", " ", "=", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{"ffv", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", "1"}], ",", 
      RowBox[{"EE", "\[Rule]", "campo"}], ",", 
      RowBox[{"yy", "\[Rule]", "0"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460139456587182*^9, 3.460139465859315*^9}, {
   3.4601401464748*^9, 3.460140148374894*^9}, 3.460208384436803*^9, {
   3.460209290793738*^9, 3.4602092921897*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "xx", " ", "zz"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["xx", "2"], "+", 
       SuperscriptBox["zz", "2"]}], ")"}], 
     RowBox[{"5", "/", "2"}]]], ",", "0", ",", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["zz", "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["xx", "2"], "+", 
        SuperscriptBox["zz", "2"]}], ")"}], 
      RowBox[{"5", "/", "2"}]]], "-", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["xx", "2"], "+", 
        SuperscriptBox["zz", "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.4601394666454268`*^9, 3.4601401598956738`*^9, 
  3.460140332474284*^9, 3.4601436006492443`*^9, 3.4602083849792137`*^9, 
  3.460208894768867*^9, 3.460209293139572*^9, 3.460209421825687*^9, 
  3.460212069793309*^9, 3.460230725133082*^9, 3.460232123134945*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fffv3", " ", "=", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{"ffv", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", "1"}], ",", 
      RowBox[{"EE", "\[Rule]", "campo"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.460143623996068*^9, 3.460143626950313*^9}, 
   3.460208398722608*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", "xx", " ", "zz"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["xx", "2"], "+", 
       SuperscriptBox["yy", "2"], "+", 
       SuperscriptBox["zz", "2"]}], ")"}], 
     RowBox[{"5", "/", "2"}]]], ",", 
   FractionBox[
    RowBox[{"3", " ", "yy", " ", "zz"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["xx", "2"], "+", 
       SuperscriptBox["yy", "2"], "+", 
       SuperscriptBox["zz", "2"]}], ")"}], 
     RowBox[{"5", "/", "2"}]]], ",", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["zz", "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["xx", "2"], "+", 
        SuperscriptBox["yy", "2"], "+", 
        SuperscriptBox["zz", "2"]}], ")"}], 
      RowBox[{"5", "/", "2"}]]], "-", 
    FractionBox["1", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["xx", "2"], "+", 
        SuperscriptBox["yy", "2"], "+", 
        SuperscriptBox["zz", "2"]}], ")"}], 
      RowBox[{"3", "/", "2"}]]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.460143627882358*^9, 3.460208399675552*^9, 
  3.460208896114582*^9, 3.460209428693303*^9, 3.4602120709788923`*^9, 
  3.460230725921624*^9, 3.460232123590952*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"streamp", "=", 
   RowBox[{"StreamPlot", "[", 
    RowBox[{
     RowBox[{"Reverse", "[", 
      RowBox[{"Delete", "[", 
       RowBox[{"fffv", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"zz", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"xx", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"StreamStyle", "\[Rule]", 
      RowBox[{"GrayLevel", "[", ".2", "]"}]}], ",", 
     RowBox[{"StreamPoints", "\[Rule]", "Fine"}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"x", "^", "2"}], "+", 
           RowBox[{"y", "^", "2"}]}], "\[GreaterEqual]", "1"}], ")"}]}], " ", 
       "]"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.460139481687509*^9, 3.4601395771305037`*^9}, {
   3.460139645855978*^9, 3.460139655225037*^9}, {3.460139791640895*^9, 
   3.460139794726502*^9}, {3.460139923552133*^9, 3.4601399721496687`*^9}, {
   3.460140014873644*^9, 3.4601400250079536`*^9}, 3.460140381162335*^9, {
   3.460140514480884*^9, 3.4601406893413267`*^9}, {3.4601407270151567`*^9, 
   3.460140752939288*^9}, {3.460140812792848*^9, 3.460140813296542*^9}, {
   3.4601408869364758`*^9, 3.460141054728311*^9}, {3.460141713833757*^9, 
   3.460141731156704*^9}, {3.460141842314502*^9, 3.460141848150858*^9}, {
   3.46014187854272*^9, 3.460141883824184*^9}, 3.460144731227333*^9, 
   3.460209252215043*^9, {3.460209303354938*^9, 3.460209320803438*^9}, {
   3.460209448551118*^9, 3.460209451938449*^9}, {3.4602095116793013`*^9, 
   3.460209523407296*^9}, {3.460209580665002*^9, 3.460209588529585*^9}, {
   3.460209679374771*^9, 3.4602096816475163`*^9}, {3.460209724563547*^9, 
   3.460209738005052*^9}, {3.460211941811795*^9, 3.460211946898301*^9}, {
   3.460211978894205*^9, 3.460211978984271*^9}, 3.4602120456040583`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"carica", " ", "=", " ", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Cos", "[", "u", "]"}], ",", 
       RowBox[{"Sin", "[", "u", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", 
       RowBox[{"2", " ", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<Temperature\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotStyle", "\[Rule]", "Thick"}], ",", 
     RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}]}], " ", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.460231160640122*^9, 3.460231170306439*^9}, {
   3.460231205069475*^9, 3.46023124859416*^9}, {3.460231322092454*^9, 
   3.460231322705326*^9}, {3.46023139510076*^9, 3.460231402132949*^9}, {
   3.46023212927372*^9, 3.460232137017455*^9}, 3.460232167826542*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"contourp", "=", 
   RowBox[{"ContourPlot", "[", 
    RowBox[{"fff", ",", 
     RowBox[{"{", 
      RowBox[{"zz", ",", 
       RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"xx", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
     RowBox[{"BoundaryStyle", "\[Rule]", "Red"}], ",", "\[IndentingNewLine]", 
     
     RowBox[{"RegionFunction", "\[Rule]", 
      RowBox[{"Function", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "^", "2"}], "+", 
          RowBox[{"y", "^", "2"}]}], "\[GreaterEqual]", "1"}]}], "]"}]}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"ClippingStyle", "\[Rule]", "Pink"}], ",", "\[IndentingNewLine]", 
     RowBox[{"ColorFunction", "\[Rule]", "\"\<Temperature\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Contours", "\[Rule]", "80"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "\[IndentingNewLine]",
     "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.4601270592026453`*^9, 3.460127092450074*^9}, {
   3.460127176458035*^9, 3.4601271791001863`*^9}, {3.460137208551585*^9, 
   3.46013731114349*^9}, {3.4601373430815887`*^9, 3.4601373780628242`*^9}, {
   3.4601374219866867`*^9, 3.4601375273187428`*^9}, {3.460137575565507*^9, 
   3.4601376520470667`*^9}, {3.460137700867957*^9, 3.460137759798449*^9}, {
   3.460137791141981*^9, 3.460137873083519*^9}, 3.460137948502707*^9, {
   3.4601379986690817`*^9, 3.4601381004259043`*^9}, {3.460138457413075*^9, 
   3.460138474579852*^9}, {3.460139582630274*^9, 3.460139584221325*^9}, {
   3.460140055987961*^9, 3.460140056467531*^9}, {3.460140823862829*^9, 
   3.460140823993609*^9}, {3.46014087713834*^9, 3.460140879157695*^9}, {
   3.460141095095305*^9, 3.460141113783687*^9}, {3.460141168485199*^9, 
   3.460141169316249*^9}, {3.460141252955381*^9, 3.460141256083399*^9}, {
   3.46014133427897*^9, 3.460141362246728*^9}, {3.460141468079545*^9, 
   3.4601414836484547`*^9}, {3.4601415386501513`*^9, 
   3.4601415586254597`*^9}, {3.460141604476952*^9, 3.460141607578025*^9}, {
   3.460141639195486*^9, 3.460141691478526*^9}, {3.460141816542317*^9, 
   3.4601418212185917`*^9}, {3.460144679781889*^9, 3.460144685269918*^9}, {
   3.460144734811886*^9, 3.460144737396029*^9}, {3.460208411858432*^9, 
   3.46020844090764*^9}, {3.460208505480701*^9, 3.460208546274877*^9}, {
   3.460208904142433*^9, 3.460208924057762*^9}, {3.460209458568935*^9, 
   3.460209460671361*^9}, {3.4602096025032682`*^9, 3.460209604882738*^9}, {
   3.460209663112135*^9, 3.46020966898555*^9}, {3.460209745308137*^9, 
   3.4602097492318907`*^9}, {3.460209799926866*^9, 3.460209800490999*^9}, {
   3.460209935628487*^9, 3.460209942226458*^9}, {3.4602119544266*^9, 
   3.4602119559805202`*^9}, 3.460212037897883*^9, 3.460230735053753*^9, 
   3.460231409226986*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"finale", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"contourp", ",", "streamp", ",", "carica"}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.460139588861425*^9, 3.460139599529667*^9}, {
   3.460143869380103*^9, 3.460143870762335*^9}, 3.4601447707879887`*^9, 
   3.4602093520634212`*^9, 3.460212100492626*^9, 3.460230747386436*^9, {
   3.460231175980886*^9, 3.46023117677754*^9}, 3.460231421806057*^9, {
   3.4602321476591988`*^9, 3.460232163448165*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<campo_con_sfera.pdf\>\"", ",", "finale"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<campo_con_sfera.eps\>\"", ",", "finale"}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.460143887501163*^9, 3.4601439324520597`*^9}, {
  3.460144298208969*^9, 3.460144300069131*^9}, {3.460144613100254*^9, 
  3.460144644130725*^9}, {3.4602099749158373`*^9, 3.460209982523011*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fff3", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"ff", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "\[Rule]", "1"}], ",", 
       RowBox[{"EE", "\[Rule]", "campo"}]}], "}"}]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.460127235451029*^9, 3.46012723901293*^9}, 
   3.460210005648624*^9, 3.460211930799346*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"ContourPlot3D", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zz", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"1", "/", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"xx", "^", "2"}], "+", 
           RowBox[{"y", "^", "2"}], "+", 
           RowBox[{"zz", "^", "2"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"3", "/", "2"}], ")"}]}]}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"xx", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"zz", ",", 
      RowBox[{"-", "1.5"}], ",", "1.5"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Mesh", "\[Rule]", "None"}], ",", "\[IndentingNewLine]", 
    RowBox[{"BoundaryStyle", "\[Rule]", "Red"}], ",", "\[IndentingNewLine]", 
    RowBox[{"RegionFunction", "\[Rule]", 
     RowBox[{"Function", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "^", "2"}], "+", 
         RowBox[{"y", "^", "2"}], "+", 
         RowBox[{"z", "^", "2"}]}], "\[GreaterEqual]", "1"}]}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ContourStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{
       RowBox[{"Opacity", "[", "0.3", "]"}], ",", "Red"}], "]"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"ColorFunction", "\[Rule]", "\"\<Temperature\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"BoxRatios", "\[Rule]", "Automatic"}], ",", "\[IndentingNewLine]", 
    RowBox[{"PerformanceGoal", "\[Rule]", "\"\<Quality\>\""}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"MaxRecursion", "\[Rule]", "2"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "10"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Contours", "\[Rule]", "7"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.460400929090316*^9, 3.460400967922526*^9}, {
   3.4604011866389914`*^9, 3.460401205700255*^9}, {3.4604012736686773`*^9, 
   3.460401276253385*^9}, {3.4604014211183662`*^9, 3.460401439841292*^9}, {
   3.460401612204124*^9, 3.4604016138570127`*^9}, 3.460402054825083*^9}]
},
WindowSize->{1024, 746},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
FrontEndVersion->"7.0 for Linux x86 (64-bit) (December 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 241, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[811, 29, 430, 12, 31, "Input"],
Cell[1244, 43, 565, 14, 54, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1846, 62, 876, 24, 31, "Input"],
Cell[2725, 88, 696, 18, 56, "Output"]
}, Open  ]],
Cell[3436, 109, 504, 15, 31, "Input"],
Cell[CellGroupData[{
Cell[3965, 128, 619, 13, 31, "Input"],
Cell[4587, 143, 819, 19, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5443, 167, 474, 11, 31, "Input"],
Cell[5920, 180, 1063, 31, 55, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7020, 216, 339, 9, 31, "Input"],
Cell[7362, 227, 1352, 42, 55, "Output"]
}, Open  ]],
Cell[8729, 272, 2162, 45, 72, "Input"],
Cell[10894, 319, 903, 20, 72, "Input"],
Cell[11800, 341, 3048, 56, 172, "Input"],
Cell[14851, 399, 521, 11, 31, "Input"],
Cell[15375, 412, 510, 11, 72, "Input"],
Cell[15888, 425, 374, 11, 31, "Input"],
Cell[16265, 438, 2282, 55, 232, "Input"]
}
]
*)

(* End of internal cache information *)
